home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)za.d64 / loadshape.proc < prev    next >
Text File  |  2007-03-01  |  743b  |  31 lines
  1. 9000 //
  2. 9010 PROC LOADSHAPE(SPR,FILENAME$) CLOSED
  3. 9020 DIM DS$ OF 2
  4. 9030 OPEN FILE 81,FILENAME$,READ
  5. 9040 DS$:=STATUS$
  6. 9050 IF DS$="00" AND SPR>=0 AND SPR<64 THEN
  7. 9060 A:=828
  8. 9070 POKE A+0,162 //    LDX #81
  9. 9080 POKE A+1,81
  10. 9090 POKE A+2,32 //     JSR $FFC6
  11. 9100 POKE A+3,198
  12. 9110 POKE A+4,255
  13. 9120 POKE A+5,160 //    LDY #00
  14. 9130 POKE A+6,0
  15. 9140 POKE A+7,32 // LP  JSR $FFCF
  16. 9150 POKE A+8,207
  17. 9160 POKE A+9,255
  18. 9170 POKE A+10,153 //   STA SPR,Y
  19. 9180 POKE A+11,(49152+SPR*64) MOD 256
  20. 9190 POKE A+12,(49152+SPR*64) DIV 256
  21. 9200 POKE A+13,200 //   INY
  22. 9210 POKE A+14,192 //   CPY #64
  23. 9220 POKE A+15,64
  24. 9230 POKE A+16,208 //   BNE LP
  25. 9240 POKE A+17,245
  26. 9250 POKE A+18,96 //    RTS
  27. 9260 SYS A
  28. 9270 ENDIF 
  29. 9280 CLOSE FILE 81
  30. 9290 ENDPROC LOADSHAPE
  31.